<%
	
	
	
	Dim s			' Status indicator
	Dim execPage	' Page to Execute
	
	Dim htmlViewAll	' View All
	Dim htmlAddNew	' Add New
	Dim htmlSearch	' Search
	Dim htmlUpdate	' Update
	Dim cPage		' Current page
	
	
	s = Request.QueryString("s")
	cPage = Request.ServerVariables("PATH_INFO")
	
	htmlViewAll	= renderActionMenu(1, "View All Files", cPage)
	htmlAddNew	= renderActionMenu(1, "Add New Files", cPage & "?s=a")
	'htmlSearch	= renderLink(cPage & "?s=s", "imgSearch", "Search File")
	'htmlUpdate	= renderLink(cPage, "imgUpd", "Update File")
		
	
	Select Case s
'		Case "s"
'			execPage	= "show_dropbox.asp"
'			htmlSearch	= renderNoLink("Search")
		Case "d"
			execPage	= "edit_dropbox.asp"
		Case "a"
			execPage	= "add_dropbox.asp"
			htmlAddNew	= renderActionMenu_on(1, "Add New Files")
		Case "e", "u"
			execPage	= "edit_dropbox.asp"
		Case Else
			execPage	= "show_dropbox.asp"
			htmlViewAll	= renderActionMenu_on(1, "View All Files")
	End Select
	
	
	' HTML Rendering Function
	' Start .....
	'
	' Rendering found in actionMenu.asp 
	'
	' End .....
	
	
%>